home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Franz PD
/
Franz PD Disk #176 (1992)(Rhein-Sieg-Soft).zip
/
Franz PD Disk #176 (1992)(Rhein-Sieg-Soft).adf
/
ROMA-AMIGA
/
Lader
(
.txt
)
< prev
next >
Wrap
AmigaBASIC Source Code
|
1992-06-14
|
2KB
|
92 lines
DIM z1%(83),z2%(83)
SCREEN 1,320,200,4,1
WINDOW 3,"Roma Amiga © 1989 by A.Neumann",,16,1
PALETTE 0,0,0,0
PALETTE 1,1,1,1
PALETTE 2,1,1,1
COLOR 2,0
FOR b=1 TO 13
READ a$:LOCATE 10,INT(20-(LEN(a$)/2))
PRINT a$
FOR a=1 TO 200:NEXT a
xmin%=INT(19-(LEN(a$)/2))*8
READ effekt:ON effekt GOSUB 1,2,3,4
IF INKEY$<>"" OR MOUSE(0)<>0 THEN b=13
NEXT b
CLS
PRINT "Wollen Sie die Highscoreliste"
PRINT "`Cs` erstellen ?"
a$=""
WHILE a$<>"j" AND a$<>"n":a$=INKEY$:WEND
IF a$="j" THEN
OPEN "Cs" FOR OUTPUT AS #2
PRINT#2,"Der alte Julius"
CLOSE#2
END IF
CLEAR,60000,20000
RESTORE Menue:
FOR a=1 TO 3:READ c
FOR b=0 TO c:READ a$:MENU a,b,1,a$:NEXT b
NEXT a
MENU 4,0,1,""
FOR a=0 TO 15:PALETTE a,0,0,0:NEXT a
MENU ON
CHAIN "Roma"
DATA "Neudelsoft proudly presents"
DATA 1
DATA "The Amiga Version of"
DATA 3
DATA "an old 64er Game",3
DATA "- - - R O M A - - -",2
DATA "programmed by A.Neumann",4
DATA "Graphics by",1
DATA "NEUDELSOFT",2
DATA "Greetings to :",4
DATA "Holger Franz, Nils Kassube ,",1
DATA "Danny , Kaka , Swertz ,",2
DATA "Tobi , Bella , Julia , Wortis ,",1
DATA "Hartmann , Robert , G.F.",4
DATA "and the whole 11 a",3
Menue:
DATA 3,"Roma"
DATA "----","die Umsetzung","vom C - 64"
DATA 4,"© 1989"
DATA "by NEUDELSOFT","written by","Andreas","Neumann"
DATA 2,"Viel Spaß !"
DATA "und keine","Panic !!!"
4 :
FOR c=1 TO 10
FOR a=0 TO 3
GET (0,72+a)-(310,72+a),z1%
GET (0,80-a)-(310,80-a),z2%
PUT (0,72+a),z2%,PSET
PUT (0,80-a),z1%,PSET
NEXT a
FOR a=1 TO 200:NEXT a
NEXT c
LINE (0,72)-(310,80),0,bf:RETURN
3 :
FOR a=100 TO 0 STEP-1
PALETTE 2,(a/100),(a/100),(a/100)
FOR c=1 TO 10:NEXT c
NEXT a
LINE (0,72)-(310,80),0,bf:PALETTE 2,1,1,1:RETURN
2 :
FOR a=300 TO 700 STEP 5
FOR c=0 TO 3
SOUND a,1,200,c
NEXT c
NEXT a
FOR a=0 TO 155
LINE (a,72)-(a,80),0
LINE (310-a,72)-(310-a,80),0
NEXT a:RETURN
1 :
FOR a=1 TO 500
rand%=2*(155-xmin%)*RND
rand2%=72+8*RND
LINE (xmin%+rand%,rand2%)-(xmin%+rand%+2,rand2%+2),0,bf
NEXT a
LINE (0,72)-(310,80),0,bf
RETURN